home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue59 / Arch / Extended Sample / UnitObjectEntityEmployee.dfm < prev    next >
Encoding:
Text File  |  2000-06-05  |  433 b   |  20 lines
  1. inherited ObjectEntityEmployee: TObjectEntityEmployee
  2.   Left = 285
  3.   Top = 161
  4.   Height = 479
  5.   object QueryEmployee: TQuery
  6.     DatabaseName = 'DBDEMOS'
  7.     RequestLive = True
  8.     SQL.Strings = (
  9.       'select * from employee.db where EmpNo = :EmpNo')
  10.     Left = 116
  11.     Top = 180
  12.     ParamData = <
  13.       item
  14.         DataType = ftInteger
  15.         Name = 'EmpNo'
  16.         ParamType = ptUnknown
  17.       end>
  18.   end
  19. end
  20.